<%@LANGUAGE="VBSCRIPT" CODEPAGE="1251"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<title>Untitled Document</title>
</head>
<!--#include file="../Connect/Connection.asp"-->
<!--#include file="../Connect/adovbs.inc"-->
<body>
<%
	Set cnn=Server.CreateObject("ADODB.Connection")
	Set cmd=Server.CreateObject("ADODB.Command")
	cnn.open connStr & ";Initial catalog=sms_d"
	
With cmd
    .ActiveConnection = cnn
    .CommandType = adCmdStoredProc
    .Commandtext = "usp_SetRowStamp"	
	.Parameters.Append .CreateParameter("@sRowStamp", adVarChar, adParamInput,100)
	.Parameters.Append .CreateParameter("@iResult", adInteger, adParamOutput)
	.Parameters("@sRowStamp")=Request.Querystring("param")
	.Execute
End with
'	Stamp=cmd.Parameters("@sRowStamp")
	Result=cmd.Parameters("@iResult")
	set cmd=nothing
	
	response.Write "@iResult=" & Result
%>
</body>
</html>
